home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / inites / aboutbox.frm next >
Text File  |  1995-05-02  |  6KB  |  158 lines
  1. VERSION 2.00
  2. Begin Form AboutBox 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "ABOUT TESTINI"
  6.    ClientHeight    =   1635
  7.    ClientLeft      =   4290
  8.    ClientTop       =   3135
  9.    ClientWidth     =   4845
  10.    ClipControls    =   0   'False
  11.    FontBold        =   -1  'True
  12.    FontItalic      =   0   'False
  13.    FontName        =   "System"
  14.    FontSize        =   9.75
  15.    FontStrikethru  =   0   'False
  16.    FontUnderline   =   0   'False
  17.    Height          =   2040
  18.    HelpContextID   =   100
  19.    Left            =   4230
  20.    LinkMode        =   1  'Source
  21.    LinkTopic       =   "Form2"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   1635
  25.    ScaleWidth      =   4845
  26.    Top             =   2790
  27.    Width           =   4965
  28.    Begin SSPanel Panel3D3 
  29.       Alignment       =   1  'Left Justify - MIDDLE
  30.       BackColor       =   &H00C0C0C0&
  31.       BevelOuter      =   0  'None
  32.       Caption         =   "Compuserve: 100412,2653"
  33.       Font3D          =   0  'None
  34.       FontBold        =   0   'False
  35.       FontItalic      =   0   'False
  36.       FontName        =   "MS Sans Serif"
  37.       FontSize        =   8.25
  38.       FontStrikethru  =   0   'False
  39.       FontUnderline   =   0   'False
  40.       Height          =   195
  41.       Index           =   2
  42.       Left            =   1260
  43.       TabIndex        =   5
  44.       Top             =   930
  45.       Width           =   2835
  46.    End
  47.    Begin SSPanel Panel3D3 
  48.       Alignment       =   1  'Left Justify - MIDDLE
  49.       BackColor       =   &H00C0C0C0&
  50.       BevelOuter      =   0  'None
  51.       Caption         =   "Christophe Tricaud"
  52.       Font3D          =   0  'None
  53.       FontBold        =   0   'False
  54.       FontItalic      =   0   'False
  55.       FontName        =   "MS Sans Serif"
  56.       FontSize        =   8.25
  57.       FontStrikethru  =   0   'False
  58.       FontUnderline   =   0   'False
  59.       Height          =   225
  60.       Index           =   1
  61.       Left            =   1260
  62.       TabIndex        =   6
  63.       Top             =   720
  64.       Width           =   1935
  65.    End
  66.    Begin CommandButton Cmd_Ok 
  67.       Cancel          =   -1  'True
  68.       Caption         =   "&Ok"
  69.       Default         =   -1  'True
  70.       Height          =   360
  71.       Left            =   3300
  72.       TabIndex        =   2
  73.       Top             =   1200
  74.       Width           =   1500
  75.    End
  76.    Begin SSPanel Panel3D3 
  77.       Alignment       =   1  'Left Justify - MIDDLE
  78.       BackColor       =   &H00C0C0C0&
  79.       BevelOuter      =   0  'None
  80.       Caption         =   "⌐ TISOFT 1993 - 1994"
  81.       Font3D          =   0  'None
  82.       FontBold        =   0   'False
  83.       FontItalic      =   0   'False
  84.       FontName        =   "MS Sans Serif"
  85.       FontSize        =   8.25
  86.       FontStrikethru  =   0   'False
  87.       FontUnderline   =   0   'False
  88.       Height          =   195
  89.       Index           =   0
  90.       Left            =   1080
  91.       TabIndex        =   3
  92.       Top             =   540
  93.       Width           =   2835
  94.    End
  95.    Begin SSPanel Panel3D1 
  96.       BackColor       =   &H00C0C0C0&
  97.       BevelOuter      =   1  'Inset
  98.       Font3D          =   0  'None
  99.       Height          =   735
  100.       Left            =   180
  101.       TabIndex        =   4
  102.       Top             =   270
  103.       Width           =   795
  104.       Begin PictureBox Pic_ApplicationIcon 
  105.          AutoSize        =   -1  'True
  106.          BackColor       =   &H00C0C0C0&
  107.          BorderStyle     =   0  'None
  108.          Enabled         =   0   'False
  109.          Height          =   480
  110.          HelpContextID   =   2
  111.          Left            =   150
  112.          Picture         =   ABOUTBOX.FRX:0000
  113.          ScaleHeight     =   480
  114.          ScaleWidth      =   480
  115.          TabIndex        =   1
  116.          Top             =   150
  117.          Width           =   480
  118.       End
  119.    End
  120.    Begin Line lin_HorizontalLine1 
  121.       BorderWidth     =   2
  122.       X1              =   1170
  123.       X2              =   4680
  124.       Y1              =   480
  125.       Y2              =   480
  126.    End
  127.    Begin Label Lbl_IconWorks 
  128.       BackColor       =   &H00C0C0C0&
  129.       Caption         =   "TESTINI for WIN 3.1"
  130.       FontBold        =   -1  'True
  131.       FontItalic      =   0   'False
  132.       FontName        =   "MS Sans Serif"
  133.       FontSize        =   18
  134.       FontStrikethru  =   0   'False
  135.       FontUnderline   =   0   'False
  136.       Height          =   450
  137.       Left            =   1140
  138.       TabIndex        =   0
  139.       Top             =   60
  140.       Width           =   3870
  141.    End
  142. End
  143. '                                                                                                                                                                                                                                                                                                                            ''
  144. '                                                                                                                                                                                                                                                                                                                           '
  145. 'Permet d'afficher la boεte AboutBox                                                                                                                                                                                                                                                                                      ''
  146. '                                                                                                                                                                                                                                                                                                                        '
  147. '                                                                                                                                                                                                                                                                                                                       '
  148.  
  149. Sub Cmd_OK_Click ()
  150.     Unload AboutBox
  151. End Sub
  152.  
  153. Sub Form_Load ()
  154. ' Center the AboutBox on the screen
  155.      Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  156. End Sub
  157.  
  158.